Código fuente de 'Busca elemento en array 3.asp'
<html>
<head>
<title>Busca elemento en array 3 - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Busca elemento en array 3</font></b>
<body style="font-family: Arial; font-size: 11pt"></p>
<%
function BuscaElemento(vector, elem)
Dim iLoop, iPos
iPos = -1
For iLoop = LBound(vector) to UBound(vector)
If CStr(elem) = CStr(vector(iLoop)) then
'Encontramos el elemento
iPos = iLoop
End If
Next
BuscaElemento=ipos
end function
vector=array (4,3,2,1)
Response.write "<b>Vector inicial: </b>4,3,2,1 </b><br><b>Función:</b> BuscaElemento(vector,1)<br>"
response.write "<b>Elemento encontrado en la posición (empezando desde cero): </b>" & BuscaElemento(vector,1)
%>
</body>
</html>